Public Sub Test2()
    Dim XMLDoc As New MSXML2.DOMDocument
    Dim RootNode As IXMLDOMElement
    Dim SomeNode As IXMLDOMElement
    Dim NewAttr As IXMLDOMAttribute
    Dim I As Integer
    With XMLDoc
        Set RootNode = .createElement("Root")
        Set NewAttr = .createAttribute("RootAttr")
        NewAttr.Text = "RootName"
        RootNode.setAttributeNode NewAttr
        .appendChild RootNode
        Set SomeNode = .createElement("Head")
        SomeNode.Text = "This is the Head"
        RootNode.appendChild SomeNode
        For I = 1 To 16
            Set SomeNode = .createElement("Record")
            SomeNode.Text = "This is the Record No" & I
            Set NewAttr = .createAttribute("No")
            NewAttr.Text = I
            SomeNode.setAttributeNode NewAttr
            Set NewAttr = .createAttribute("Name")
            NewAttr.Text = "Record"
            SomeNode.setAttributeNode NewAttr
            RootNode.appendChild SomeNode
        Next I
        .Save ("D:\Temp\XML\Lesson 40 F02.xml")
    End With
End Sub